home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / U. Mass AI & LISP Tools / MODULES / HNET / HNET-Compile.lisp < prev    next >
Encoding:
Text File  |  1990-06-22  |  1.1 KB  |  40 lines  |  [TEXT/CCL ]
  1. ;;; HNET compilation and testing. Dan Suthers.
  2.  
  3. (in-package :HNET)
  4.  
  5. (defun PATH-TO (file) 
  6.   (concatenate 'string 
  7.                #+:CCL "ccl;MODULES:HNET:"
  8.                #+HP  "$tee/modules/hnet/"
  9.                #+VAX "cai$disk:[suthers.lisp.modules.hnet]"
  10.                #+:TI "suthers.modules;"
  11.                #-(or :CCL HP VAX :TI) ""
  12.                file))
  13.  
  14. (defun LISP-EXTENSION (file)
  15.   (concatenate 'string 
  16.                file
  17.                #+HP ".l"
  18.                #-HP ".lisp"))
  19.  
  20. (format T "~&Dribbling to ~A ..." (path-to "test.txt"))
  21. (dribble (path-to "test.txt"))
  22.  
  23. (format T "~&Compiling ~A ..." (path-to (lisp-extension "HNET")))
  24. (compile-file (path-to (lisp-extension "HNET")))
  25.  
  26. (format T "~&Loading ~A ..." (path-to "HNET"))
  27. (load (path-to "HNET"))
  28.  
  29. (format T "~&Loading Tests in ~A ..." (path-to (lisp-extension "hnet-test")))
  30. (load (path-to (lisp-extension "hnet-test")))
  31.  
  32. (format T "~&Loading ~A ..." (path-to (lisp-extension "hnet-printer")))
  33. (load (path-to (lisp-extension "hnet-printer")))
  34.  
  35. (format T "~&Printing TEST HNET:~%")
  36. (hnet:print-hnet-below-root 'user::test t)
  37.  
  38. (dribble)
  39.  
  40. ;;; EOF